The dynamics of a mouse.

Once upon a time, the keyboard was the best thing sinced sliced bread for interaction with the processor. 
A printer and-or a terminal type monitor was the display. Then came the mouse.
Since then, its hard to find a better mouse trap or a better mouse.

RapidQ likes mouses too. Our QObjects make it easy to do things with the mouse that formerly
needed to be done with the arrows on the keyboard. I can instruct my QObjects to recognize 
all my mouse activities with a simple sub-routine. I have created a myriad of things to do 
in this program using my wee little mouse, and my keyboard. It brings a program alive.

Some of the modules we use to do this are a little cryptic without some explaination.
This session will attempt to clear up some of that code. I'm sure you will think of a bunch 
of new features that you will want to add to it yourself.

eOFFSET hex display of the relative offset addresses in the icon file.

Sub eOffsetDown (b%, x%, y%, s%)
This module has much text, but its here for completeness. You may wish to expand on it
or use a popup QObject instead of SHOWMESSAGE. I find I seldom use it.
Its vectored from the eOFFSET RichEdit object with an OnMouseDown instruction.
It simply counts down the lines in the ascii filed and capturing the last one
that meets the IF criteria. Then displays it in a SHOWMESSAGE box.
The parameters aren necessary in the DECLARATIONS, but I may want them later.

SelectColor the color panel for the color selected with the scrollbars

Sub SelectColorDown (b%, x%, y%, s%, sender as QPanel)
capture the selected color, in hex into variable BGR and set the drag-drop flag.

Palette(0 to F) The visual displays for each of the icons 16 colors.

Sub PaletteDown (b%, x%, y%, s%, sender as QPanel)
The sender parameter is used to identify the palette used
The active color takes on the selected color and hint attribute with a mouse click.

Sub PaletteMove (b%, x%, y%, s%, sender as QPanel)
This module does a lot of work when the cursor is dragged over it.

The senders hint (0 to F) is converted to a number into variable C
8 bytes of eHEX are highlighted from eHEX character 219 + 12 ascii per palette.

IF the drag-drop flag is set from a mouse down from the SelectColor panel then
the flag is cleared and the color palette and color table take the SelectCoror's color.

Selstart and sellength are already set earlier in this sub.
variable BGR holds the selected color from the SelectedColor mousedown.
Convert BRG into text for the ehex 8 character display using c$ for conversion.

IF activecolor is the same as the palette that was changed, then change activecolor too.

Canvas for the magnified image of the icon

Sub CanvasMove (x%,y%,s%)
Highlights the pixel value in hex display
vx, vy use x%, y% to calculate the byte location in eHEX for XOR mode.
tx, txy, ty do the same for the AND mode. note dx= f(y%) due to eHEX byte structure.
The appropriate byte the cursor is pointing to in the magnified image is highlighted.
the current vs and ts (visible and transparent) values are also used elsewhere.

Sub Canvasdown (b%, x%, y%, s%, sender as QCanvas)
IF in the XOR mode, write the active color into the eHEX display.
If in the AND mode, then capture the byte holding 8 transparent pixels bits into N.
calculate which of the 8 bits is needed to be altered.
toggle that bit in the 8 bit value in N and place it into n$ with the XOR command.
restore the modified byte in the eHEX display in the AND section of data.
Perform the following subs to update the image display
ColorMap
XorMap
AndMap

eHEX ascii display work-around

Without these subs, whenever I mouse down in the eHEX ascii display, the ScrollBox
slidebar moves to zero and a number of ascii bytes become highlighted due to the move.
There is a more elegant method of handling this using a FOCUS include; however, it
is beyond the scope of what we have covered. So I used this workaround instead.
Essentially, it restores the ScrollBox's former position resulting in no highlighting.

Sub eHexMove (x%, y%, s%)
The ScrollBox's slidebar value is for any eHex display into variable "workaround".

Sub eHexDown (b%, x%, y%, s%)
This position is restored whenever I select a new location in the eHEX ascii field.

There are a number of events with no function, but they are here in case I want to use them
later for some new coding. They may be deleted without affecting the program.

Also, the temp routine is at the end of the program for convenience. It may be used to
interactively influence the running program by entering diagnostic code. The data in the
etemp QEdit box can be read and the xtemp routine can be executed by clicking its button.
This sub, its declaration, the btemp button and the etemp Edit box can also be removed.

''''______________________________________________________________________
''''______________________________________________________________________
''''   Mouse Activity  Ups, Downs and Moves

'''''______________ Offset Edit Display control _____________

Sub eOffsetDown (b%, x%, y%, s%)
                 n= eOffSet.wherey
                n$= "error this statement should never be seen"
   if  n=0 then n$= " 00 word Reserved, always zero"
   if  n=1 then n$= " 02 word Resource Type 0-cursor  1-icon"
   if  n=2 then n$= " 04 word Number of images"

if  n= 3  then n$= " STRUCTURE [0006 - 0015] Icon structure information"
   if  n= 4  then n$= " 06 byte Image width  in pixels. hex 20= 32 decimal"
   if  n= 5  then n$= " 07 byte Image height in pixels"
   if  n= 6  then n$= " 08 byte Number of color palettes"
   if  n= 7  then n$= " 09 byte Reserved, always zero"
   if  n= 8  then n$= " 0A word Number of color planes"
   if  n= 9  then n$= " 0C word Bits per pixel. four by default"
   if  n= 10 then n$= " 0E dword image Byte count= E8 02 (little endian)= 744"
   if  n= 11 then n$= " 12 dword image location= 22 + 744= 766 bytes this file"

if  n= 12 then n$= " ICONDIR [0012 - 003D] tweeks for bitmap thingies"
   if  n= 13 then n$= " 16 16 bytes"
   if  n= 14 then n$= " 26 16 bytes"
   if  n= 15 then n$= " 36  8 bytes"

if  n= 16 then n$= " RGBQUAD [003E - 007D] 16 RGB Quads, 4 bytes each"
   if  n= 17 then n$= " 3E palette 0-3"
   if  n= 18 then n$= " 4E palette 4-7"
   if  n= 19 then n$= " 5E palette 8-B"
   if  n= 20 then n$= " 6E palette C-F"

if  n= 21 then n$= " XOR MAP [007E - 027D] 16 bytes, 32 nibbles, one per pixel"
   if  n= 22 then n$= " [007E 8D] Bottom line of the image, 32 nibbles"
   if  n> 22 and  n< 53 then n$= "each nibble references one of the color palettes"
   if  n= 53 then n$= " [026E 27D] Top line of the image, 32 nibbles"
   if  n= 54 then n$= " AND MAP [027E -2FD] one bit per pixel, 1= transparent"
   if  n> 54 and  n< 63 then n$= "each nibble defines four pixel states, 1 or 0.
      showmessage n$
  ''' form.caption = n$
 End Sub

Sub eOffsetUp       (b%, x%, y%, s%)
 End Sub

Sub eOffsetMove         (x%, y%, s%)
 End Sub

'''''______________Color select QPanel control _____________

Sub SelectColorDown (b%, x%, y%, s%, sender as QPanel)
       BGR = sender.color
       Flag = 1
 end sub

Sub SelectColorUp (b%, x%, y%, s%, sender as QPanel)
 end sub

Sub SelectColorMove (x%, y%, s%, sender as QPanel)
 end sub

'''''______________Color Palettes QPanel control ___________

Sub PaletteDown   (b%, x%, y%, s%, sender as QPanel)
         ActiveColor.color = sender.color
         ActiveColor.hint  = sender.hint
  End sub

Sub PaletteMove (b%, x%, y%, s%, sender as QPanel)

'' This will highlight to bytes for the selected palette
         c$= sender.hint        '''  get hex number of palette
          c= instr(hx$,c$)-1     ''' c= decimal of palette number
           eHex.selstart  = 219 + 12 * c
            eHex.sellength = 8
 
     '' The flag is 1 if drag & drop is selected. color is in BGR
         If Flag= 1 then
            Flag= 0                   ''  disarm the drag flag
               sender.color  = BGR    ''  put BGR into palette
               colortable(c) = BGR    ''  put BGR into color table

'' Put color value into hex display. Sel length and start already set
            c$= hex$(bgr)          ''  build ADE for hex display
            n$= mid$(c$,3,2) +" "_
              + mid$(c$,5,2) +" "_
              + mid$(c$,7,2)
                eHex.seltext   = n$    ''  and post it

'' Change active color if is selecting this palette
         If ActiveColor.hint = sender.hint then ActiveColor.Color = BGR
     End If
 end sub

Sub PaletteUp   (b%, x%, y%, s%, sender as QPanel)
 End sub

'''''_______________Active color QPanel control _________________

Sub ActiveDown (b%, x%, y%, s%, sender as QPanel)
 end sub

Sub ActiveUp (b%, x%, y%, s%, sender as QPanel)
 end sub

Sub ActiveMove (x%, y%, s%, sender as QPanel)
 end sub

'''''_____________ QCanvas display control _______________

'' Highlights eHex SelStart for the Canvas cursor position PX + PY
  '' convert x% and y% position to character number in the hex display
  ''       X% , Y% are pixel positions on the canvas
  ''   int(X% / 8) = start of each of 32 pixel squares on the canvas. 
  ''  +int(X% / 16)  skips every third character in the row
  ''     368 th character is the beginning of the 1st AND map row - one row
  ''     1909th character is the beginning of the 1st XOR map row - one row
  ''     48 pixels is the character count of each row in the eHex display
  ''     int(y% mod(32) which of the 4 canvas lines per eHex line is selected

Sub CanvasMove (x%,y%,s%)      '' Highlights the pixel value in hex display
     vx = int(x%/8) + int(x%/16) 
     vy = 368 + (48* (32- int(y%/8)))
     tx  = int(x%/(4*8))*1.5             '' dx= f(x%)
     txy = (3-(((y%-4)/8)mod(4)))*12     '' dx= f(y%)
     ty  = 1909 + (48*(8-int(y%/32)))    '' dy= f(y%)
     IF mode.caption = "XOR" then  ehex.selstart  = vy + vx
     IF mode.caption = "AND" then  ehex.selstart  = ty + tx + txy
        ehex.sellength = 1
 End Sub

Sub Canvasup        (b%, x%, y%, s%, sender as QCanvas)
 End Sub

''  SelStart and SelLength are already set from OnCanvasMove
 Sub Canvasdown (b%, x%, y%, s%, sender as QCanvas)
      IF mode.caption = "XOR" then
         eHex.seltext= Activecolor.hint
  End IF
      IF mode.caption = "AND" then
         n = instr(hx$,ehex.seltext)-1
         k = 2^(3-int(x%/8)mod(4))
         n$= right$(hex$((n xor k)),1)
         eHex.seltext= n$
  End IF
         ColorMap
         XorMap
         AndMap
 END SUB

'''''______________ ScrollBox control _____________

Sub displayDown     (b%, x%, y%, s%)
 End Sub

Sub displayUp       (b%, x%, y%, s%)
 End Sub

Sub displayMove         (x%, y%, s%)
 End Sub

'''''______________ Hex Edit Display control _____________

Sub eHexDown (b%, x%, y%, s%)
     Display.VertPosition= workaround
 End Sub

Sub eHexUp       (b%, x%, y%, s%)
 End Sub

Sub eHexMove         (x%, y%, s%)
     workaround= Display.VertPosition
 End Sub

''''______________________________________________________________________
''''______________________________________________________________________
''''_______________ diagnostic and development aid___________

''''  Easy access to temp button and edit box for testing

Sub xtemp

end sub

'''                  ___________ kalos ________

At this point in the project, you are in the position to use it, learn from it and edit it
at will. These sessions can serve as a reminder; however, you should be able to walk through
the entire program. Learning where the modules are, how they react with other modules and 
where a change might need be compensated for elsewhere is probably the biggest consideration.

Not only that, you may wish to simply go through the program and get rid of the modules that
are not necessary. Another thing you might want to do is change the documentation into terms
that you like. Another task you might not have considered is editing what I have done. I'm 
a terrible speller.

Softalk

This should conclude the view and overview of the program. There are a number of things that
you might wish to change or to add. Some examples might be to make the current directory,
using the system variable default for the save function so that the output icon file will 
output to the current directory unless otherwise selected. 
The about messages for the eOFFSET addresses might want to be done differently. 
Different hints might be better for the control buttons. 
(don't change the hints that are used for identification though)
Change the background color for the form, buttons or other QObjects.
There are a myriad of ways to personalize a program, once you get into it.
In any case
Happy Hacking